home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-14.BAS < prev    next >
BASIC Source File  |  1991-06-20  |  751b  |  39 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DATA &h0000,&h00FF,&h00FF,&h00FF,&h02BB,&h0000,&h0222,&h0255
  6. DATA &h00FF,&h00FF,&h00FF,&h0055,&h00AA,&h00AA,&h00FF,&h0277
  7.  
  8. NewMode = FGbestmode(320,200,1)
  9. If NewMode < 0 OR NewMode = 12 THEN
  10.    PRINT "This program requires a 320 x 200 color graphics mode."
  11.    STOP
  12. END IF
  13.  
  14. Status = SETMEM(-64000)
  15.  
  16. OldMode = FGgetmode
  17. FGsetmode NewMode
  18.  
  19. IF NewMode = 4 THEN
  20.    FGpalette 0, 0
  21.    FOR ColorIndex = 0 TO 15
  22.       READ CGApattern
  23.       FGpattern ColorIndex, CGApattern
  24.    NEXT
  25. ELSEIF NewMode = 9 OR NewMode = 13 THEN
  26.    FGpattern 15, &h04F7
  27. ELSE
  28.    FGsetrgb 15, 38, 38, 38
  29. END IF
  30.  
  31. FGmove 0, 199
  32. FGdispfile "coral.ppr"+CHR$(0), 320, 1
  33. FGwaitkey
  34.  
  35. FGsetmode OldMode
  36. FGreset
  37.  
  38. END
  39.